Correlations

library(tidyverse)
library(ggplot2)
library(GGally)

estimated parameter values

aic.df <- read_csv("~/plots/all_data/aic.csv")

#add the replicate info

aic.df <- aic.df %>% 
  mutate(exp.field = paste0(str_split(cell.id, "_", simplify = T)[,2],"_",
                            str_split(cell.id, "_", simplify = T)[,3]),
    colony = case_when(exp.field %in% c("20min_s3", "20min_s4") ~ "Replicate 1", 
                            exp.field %in% c("20min_s5", "20min_s6") ~ "Replicate 2",
                            exp.field %in% c("20min_s7", "20min_s8" , "20min_s9") ~ "Replicate 3"))

aic.df <- aic.df %>% 
  mutate(colony = ifelse(degron == "stable" & red == "pup1-rfp", 
                         case_when(exp.field %in% c("20min_s4", "20min_s5") ~ "Replicate 1",
                                   exp.field %in% c("20min_s6", "20min_s7") ~ "Replicate 2",
                                   exp.field %in% c("20min_s8", "20min_s9") ~ "Replicate 3"), colony)) 
  # filter(value < 0.05)
  

Cellular attributes

pup1.cell.attr <- read_csv("~/plots/all_data/all_pup1_cell_attr.csv")

Rows: 19396 Columns: 29
── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (4): cell.id, degron, red, treatment
dbl (25): gfp.mean.bg.af.sub.new, gfp.sum.bg.af.sub, area, area.puncta, BB_B, BB_C, Elip_B, Elip_C, no.of.voxels, ...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

#pup1-RFP background

pup1.cell.attr <- pup1.cell.attr %>% 
  mutate(exp.field = paste0(str_split(cell.id, "_", simplify = T)[,2],"_",
                            str_split(cell.id, "_", simplify = T)[,3]),
    colony = case_when(exp.field %in% c("20min_s3", "20min_s4") ~ "Replicate 1", 
                            exp.field %in% c("20min_s5", "20min_s6") ~ "Replicate 2",
                            exp.field %in% c("20min_s7", "20min_s8" , "20min_s9") ~ "Replicate 3"))

pup1.cell.attr <- pup1.cell.attr %>% 
  mutate(colony = ifelse(degron == "stable" & red == "pup1-rfp", 
                         case_when(exp.field %in% c("20min_s4", "20min_s5") ~ "Replicate 1",
                                   exp.field %in% c("20min_s6", "20min_s7") ~ "Replicate 2",
                                   exp.field %in% c("20min_s8", "20min_s9") ~ "Replicate 3"), colony)) 
  

#remooving the 40min and 60min experiments from the stable gfp experiments
pup1.cell.attr <- pup1.cell.attr %>%
  mutate(exp = str_split(exp.field, "_", simplify = T)[,1]) %>% 
  filter(exp == "20min")

pup1.cell.attr <- read_csv("~/plots/pup1-rfp-gfp-decay/4-28-21-8hrGFP/data/gfp_stable_filtered.csv") %>% 
  filter(image.no == 1) %>% 
  dplyr::select(cell.id, gfpSumBgAFsub) %>% 
  mutate(cell.id = paste0(cell.id,"_","stable_pup1-rfp_none")) %>% 
  dplyr::rename("gfp.sum.bg.af.sub" = "gfpSumBgAFsub") %>% 
  left_join(pup1.cell.attr %>% 
              filter(degron == "stable") %>% 
              dplyr::select(-gfp.sum.bg.af.sub),., by = "cell.id") %>% 
  bind_rows(pup1.cell.attr %>% 
              filter(degron != "stable"),.)

multiple.pup1 <- pup1.cell.attr %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta)) %>% 
  filter(rfp.mean.bg.sub.puncta > 0) %>% 
  group_by(cell.id) %>% 
  tally() %>% 
  filter(n>1)

pup1.cell.attr<- pup1.cell.attr %>% 
  group_by(cell.id) %>% 
  mutate(rfp.mean.bg.sub.puncta = ifelse(cell.id %in% multiple.pup1$cell.id , mean(rfp.mean.bg.sub.puncta), rfp.mean.bg.sub.puncta )) %>% 
    distinct(cell.id, .keep_all = TRUE) 

#proteasome inhibition experiments

protInhi.attr <- read_csv("~/plots/all_data/all_mg135_attr.csv") %>% 
  rename("cell.id" = "unique.trackID") %>% 
  filter(timepoint == 1) %>% 
  mutate(cell.id = paste0(cell.id ,"_",degron,"_",red,"_",treatment)) %>% 
  mutate(exp.field = paste0(str_split(cell.id, "_", simplify = T)[,2],"_",
                            str_split(cell.id, "_", simplify = T)[,3]),
    colony = case_when(exp.field %in% c("20min_s3", "20min_s4") ~ "Replicate 1", 
                            exp.field %in% c("20min_s5", "20min_s6") ~ "Replicate 2",
                            exp.field %in% c("20min_s7", "20min_s8" , "20min_s9") ~ "Replicate 3"))

Rows: 9142 Columns: 52
── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (8): unique.trackID, experiment, exp.field, field, sample, treatment, degron, red
dbl (44): gfp.mean.bg.af.sub.new, time, timepoint, image.no, ln.gfp, image, ln.gfp.dif, area, trackID, Elip_B, Eli...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

multiple.proInh <- protInhi.attr %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta)) %>% 
  filter(rfp.mean.bg.sub.puncta > 0) %>% 
  group_by(cell.id) %>% 
  tally() %>% 
  filter(n>1)

protInhi.attr <- protInhi.attr %>% 
  group_by(cell.id) %>% 
  mutate(rfp.mean.bg.sub.puncta = ifelse(cell.id %in% multiple.proInh$cell.id , mean(rfp.mean.bg.sub.puncta), rfp.mean.bg.sub.puncta),
         rfp.sum.bg.sub.puncta = ifelse(cell.id %in% multiple.proInh$cell.id, sum(rfp.mean.bg.sub.puncta), rfp.sum.bg.sub.puncta)) %>% 
    distinct(cell.id, .keep_all = TRUE)  
  

pup1.proInhi.attr <- pup1.cell.attr %>% 
  bind_rows(.,protInhi.attr %>% 
              dplyr::select(-time, 
                            -timepoint,
                            -image.no, 
                            -ln.gfp, 
                            -ln.gfp.dif,
                            -trackID,
                            -gfp.intensity.center,
                            -gfp.int.mean,
                            -gfp.int.median,
                           -gfp.int.sum,
                           -no.of.triangles,
                           -field,
                           -time.dif.gfp,
                           -real.time.gfp,
                           -sample,
                           -avg.gfp.bg,
                           -Min_gfp,
                           -gfp.mean.bg.sub,
                           -value,
                           -t80,
                           -t95,
                           -threshold,
                           -threshold_95,
                           -gfp.mean.bg.af.sub,
                           -threshold_80,
                           -Mean_gfp,
                           -image,
                           -experiment,
                           -gfp.sum.bg.sub))

#selecting the dy values from the 2-parameter maturation model

# dy.pup1.rep1.all <- aic.df %>% 
#   filter(red == "pup1-rfp", treatment == "none", degron %in% c("cln2.3","mODC.2", "stable.2") ) %>% 
#   filter(ifelse(degron == "stable.2", dy < 0.1, dy < 0.5)) %>% 
#   group_by(cell.id) %>% 
#   # filter(model == "exponential") 
#   filter(ifelse(degron == "mODC.2", model == "dy.dm", model == "exponential")) %>%
#   mutate(dm = ifelse(is.na(dm), Inf, dm)) %>%
#   filter( dm > 0.00001)
# 
# dy.pup1.rep1 <- aic.df %>% 
#   filter(red == "pup1-rfp", treatment == "none", degron %in% c("cln2.3","mODC.2", "stable.2") ) %>% 
#   filter(ifelse(degron == "stable.2", dy < 0.1, dy < 0.5)) %>% 
#   group_by(cell.id) %>% 
#   filter(model == "exponential") 
#   # filter(ifelse(degron == "mODC.2", model == "dy.dm", model == "exponential")) %>%
#   # mutate(dm = ifelse(is.na(dm), Inf, dm)) %>%
#   # filter( dm > 0.00001)

#only dy.dm
dy.pup1.rep1.mat <- aic.df %>% 
  filter(red == "pup1-rfp" ) %>% 
  filter(ifelse(degron %in% c( "stable","stable.3","stable.2"), dy < 0.1, dy < 0.5)) %>% 
  group_by(cell.id) %>% 
  filter(model == "dy.dm") %>% 
  mutate(dm = ifelse(is.na(dm), Inf, dm)) %>%
  filter( dm > 0.00001)

#with exponential model for all the GFPs

fig2.df <- dy.pup1.rep1 %>% 
  left_join(.,pup1.cell.attr %>%
              filter(red == "pup1-rfp", treatment == "none", degron %in% c("cln2.3","mODC.2", "stable.2")), by = c("cell.id","treatment","degron","red","colony","exp.field"))

multiple.pup1 <- fig2.df %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta)) %>% 
  filter(rfp.mean.bg.sub.puncta > 0) %>% group_by(cell.id) %>% tally() %>% filter(n>1)

fig2.df <- fig2.df %>% 
  group_by(cell.id) %>% 
  mutate(rfp.mean.bg.sub.puncta = ifelse(cell.id %in% multiple.pup1$cell.id , mean(rfp.mean.bg.sub.puncta), rfp.mean.bg.sub.puncta )) %>% 
    distinct(cell.id, .keep_all = TRUE) 

#with dy.dm model for mODC and exponential for cln2 and canonical GFP

fig2.df.all <- dy.pup1.rep1.all %>% 
  left_join(.,pup1.cell.attr %>%
              filter(red == "pup1-rfp", treatment == "none", degron %in% c("cln2.3","mODC.2", "stable.2")), by = c("cell.id","treatment","degron","red","colony","exp.field"))

multiple.pup1 <- fig2.df.all %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta)) %>% 
  filter(rfp.mean.bg.sub.puncta > 0) %>% group_by(cell.id) %>% tally() %>% filter(n>1)

fig2.df.all <- fig2.df.all %>% 
  group_by(cell.id) %>% 
  mutate(rfp.mean.bg.sub.puncta = ifelse(cell.id %in% multiple.pup1$cell.id , mean(rfp.mean.bg.sub.puncta), rfp.mean.bg.sub.puncta )) %>% 
    distinct(cell.id, .keep_all = TRUE) 

#with dy.dm model for all the exp

fig2.df.mat <- dy.pup1.rep1.mat %>% 
  left_join(.,pup1.cell.attr %>%
              filter(red == "pup1-rfp"), by = c("cell.id","treatment","degron","red","colony","exp.field"))

#filter for SSE < 0.05

fig2.df.2 <- fig2.df %>% filter(value< 0.05)
fig2.df.all.2 <- fig2.df.all %>% filter(value< 0.05)

fig2.df.mat <- fig2.df.mat %>% filter(value< 0.05)

#customed ggpairs function

my_fn <- function(data, mapping, ...){
  p <- ggplot(data = data, mapping = mapping) + 
    ggpointdensity::geom_pointdensity(size = 0.1)+
    # geom_point(size = 0.1, alpha = 0.1) + 
    geom_smooth(method="lm",  color="red4", se = FALSE, lwd = 0.5)
  p
}

ggpairs.custome <- function(df){
  ggpairs.plot <- df %>%  
  mutate(colony = case_when(colony == "Replicate 1" ~ "1",
                            colony == "Replicate 2" ~ "2",
                            colony == "Replicate 3" ~ "3")) %>% 
  ungroup() %>% 
  select(dm,
    # colony,
    gfp.mean.bg.af.sub.new, 
    # gfp.sum.bg.af.sub, 
    rfp.mean.bg.sub.puncta, 
    # rfp.sum.bg.sub.puncta,
    dapi.sum.bg.sub.puncta, 
    area,
    # volume,
    # no.of.voxels,
    # area.puncta,
    elipe_shape,
    # dy,#removed t.half and added dy
    t.half) %>% 
  rename("GFP" = "gfp.mean.bg.af.sub.new",
         # "GFP.sum" = "gfp.sum.bg.af.sub",
         "Pup1- tDimer" = "rfp.mean.bg.sub.puncta",
         # "rfp.sum" = "rfp.sum.bg.sub.puncta",
         "Dapi" = "dapi.sum.bg.sub.puncta",
         "Area" = "area",
         # "voxels" = "no.of.voxels",
         # "Nuclear Size" = "area.puncta",
         "Shape" = "elipe_shape",
         # "rate of decay" = "dy",
         "Half-Life [min.]" = "t.half",
         "Rate of Maturation" = "dm") %>%
         # "Replicate" = "colony") %>% 
  ggpairs(.,
          # legend = 1,
          columns = 1:7,
          # mapping = ggplot2::aes(color = Replicate),
          lower = list(continuous = my_fn,
                      discrete = "blank", 
                      combo="blank"), 
           diag = list(discrete="barDiag", 
                      continuous = wrap("densityDiag", alpha=0.5 )),
          upper = list(discrete= wrap("barDiag" , outlier.size = 0.5),
                       combo = wrap("box_no_facet", outlier.size = 0.5),
                       continuous = wrap("cor", display_grid = FALSE, size = 2.5 , method = "pearson", color = "red4")),
          labeller = label_wrap_gen(width = 2, multi_line = TRUE), 
          proportions = c())+
  theme_bw()+
  theme(text = element_text(size = 6),
        legend.position = "bottom",
        panel.grid.major = element_blank(),
        axis.text.x = element_text(angle = 30, hjust = 1))
  # scale_fill_brewer( palette = "Set2")+
  # scale_color_brewer(palette = "Set2")+
  
  return(ggpairs.plot)
}

mODC correlations based on the dm values

#dm <1
fig2.df.all %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         dm = ifelse(is.na(dm), Inf, dm),
         elipe_shape = Elip_B/Elip_C, 
         t.half = log(2)/dy) %>% 
  filter(degron == "mODC.2",
         rfp.mean.bg.sub.puncta > 0, 
         dm < 1) %>% 
  mutate(colony = case_when(colony == "Replicate 1" ~ "1",
                            colony == "Replicate 2" ~ "2",
                            colony == "Replicate 3" ~ "3")) %>% 
  ungroup() %>% 
  select(colony,
    t.half, gfp.mean.bg.af.sub.new, rfp.mean.bg.sub.puncta, dapi.sum.bg.sub.puncta, area, elipe_shape) %>%
  rename("gfp.m" = "gfp.mean.bg.af.sub.new",
         "pup1" = "rfp.mean.bg.sub.puncta",
         "dapi" = "dapi.sum.bg.sub.puncta") %>% 
  ggpairs(.,legend = 1,
          columns = 1:7,
    mapping = ggplot2::aes(color = colony),
         lower = list(continuous = wrap("smooth", se = F, alpha = 0.5, size = 0.1) ), 
          upper = list(continuous = wrap("cor", size = 2.5)))+
  theme(text = element_text(size = 8),
        legend.position = "bottom")


#dm > 1
fig2.df.all %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         dm = ifelse(is.na(dm), Inf, dm),
         elipe_shape = Elip_B/Elip_C, 
         t.half = log(2)/dy) %>% 
  filter(degron == "mODC.2",
         rfp.mean.bg.sub.puncta > 0, 
         dm > 1) %>% 
  mutate(colony = case_when(colony == "Replicate 1" ~ "1",
                            colony == "Replicate 2" ~ "2",
                            colony == "Replicate 3" ~ "3")) %>% 
  ungroup() %>% 
  select(colony,
    t.half, gfp.mean.bg.af.sub.new, rfp.mean.bg.sub.puncta, dapi.sum.bg.sub.puncta, area, elipe_shape) %>%
  rename("gfp.m" = "gfp.mean.bg.af.sub.new",
         "pup1" = "rfp.mean.bg.sub.puncta",
         "dapi" = "dapi.sum.bg.sub.puncta") %>% 
  ggpairs(.,legend = 1,
          columns = 1:7,
    mapping = ggplot2::aes(color = colony),
         lower = list(continuous = wrap("smooth", se = F, alpha = 0.5, size = 0.1) ), 
          upper = list(continuous = wrap("cor", size = 2.5)))+
  theme(text = element_text(size = 8),
        legend.position = "bottom")

df with filtration on SSE < 0.05

modc.ggp.plt

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 0s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

#without the SSE <0.05 filter for mODC

modc.ggp.plt <- fig2.df.mat %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         elipe_shape = Elip_B/Elip_C, 
         t.half = log(2)/dy) %>% 
  filter(degron == "mODC.2",rfp.mean.bg.sub.puncta > 0) %>% 
  ggpairs.custome(.)+
  ggtitle("Single-Cell Correlations of Various Cellular Features of GFP-mODC strain")


# fig2.df.all.2 %>% 
#   mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
#          rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
#          elipe_shape = Elip_B/Elip_C, 
#          t.half = log(2)/dy) %>% 
#   filter(degron == "mODC.2",rfp.mean.bg.sub.puncta > 0) %>% 
#   ggpairs.custome(.)



modc.ggp.plt

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 2s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 3s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 3s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 3s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 3s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 3s 
 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 3s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 3s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 3s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 3s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 3s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 3s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 3s 
 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 3s 
 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 3s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s 
 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s 
 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 2s 
 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 2s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 2s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 2s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 2s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 2s 
 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 2s 
 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 2s 
 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s 
 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s 
 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s 
 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s 
 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s 
 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s 
 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 1s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s 
 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s 
 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s 
 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s 
 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s 
 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s 
 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

#with proteasome inhibitors

trt.list <- fig2.df.mat %>% 
  filter(dm > 0.000015) %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         elipe_shape = Elip_B/Elip_C, 
         t.half = log(2)/dy,
         dm = log10(dm)) %>% 
  filter(rfp.mean.bg.sub.puncta > 0, treatment != "none") %>% split(.$treatment)  
  

lapply(trt.list, function(a){
  a %>% 
    ggpairs.custome(.)+
    ggtitle(a$treatment[1])
})

$`1uM`

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

$`2.5uM`

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

$`50uM`

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

$`5uM`

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

$dmso1

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 2s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 3s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 3s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 3s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 3s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 2s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 2s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 1s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

$dmso2

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 0s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

for CLN2-GFP

cln2.ggp.plt.comb <- fig2.df.mat %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         elipe_shape = Elip_B/Elip_C, 
         t.half = log(2)/dy,
         dm = log10(dm)) %>% 
  filter(degron %in% c("cln2.3","cln2.4"), rfp.mean.bg.sub.puncta > 0) %>%
  mutate(degron = ifelse(degron %in% c("cln2.3","cln2.4"), "GFP-CLN2", degron)) %>% 
  ggpairs.custome(.)+
  ggtitle("Single-Cell Correlations of Various Cellular Features of GFP-CLN2")
cln2.ggp.plt.comb

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 1s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

The relationship does’nt change when you use dy from dy.dm or exponential model for the CLN2.3 experiment

stable.ggp.plt.comb <- fig2.df.mat %>% 
  mutate(dapi.mean.bg.sub.puncta = ifelse(is.na(dapi.mean.bg.sub.puncta), 0, dapi.mean.bg.sub.puncta) , 
         rfp.mean.bg.sub.puncta = ifelse(is.na(rfp.mean.bg.sub.puncta), 0 , rfp.mean.bg.sub.puncta),
         elipe_shape = Elip_B/Elip_C,
         t.half = log(2)/dy,
         dm = log10(dm)) %>% 
  filter(degron %in% c("stable.2","stable.3"), rfp.mean.bg.sub.puncta > 0) %>% 
  mutate(degron = ifelse(degron %in% c("stable.2","stable.3"), "yeGFP", degron)) %>% 
  ggpairs.custome(.)+
  ggtitle("Single-Cell Correlations of Various Cellular Features of yeGFP")
stable.ggp.plt.comb

 plot: [1,1] [==>--------------------------------------------------------------------------------------------------------------------------------]  2% est: 0s 
 plot: [1,2] [====>------------------------------------------------------------------------------------------------------------------------------]  4% est: 1s 
 plot: [1,3] [=======>---------------------------------------------------------------------------------------------------------------------------]  6% est: 2s 
 plot: [1,4] [==========>------------------------------------------------------------------------------------------------------------------------]  8% est: 2s 
 plot: [1,5] [============>----------------------------------------------------------------------------------------------------------------------] 10% est: 2s 
 plot: [1,6] [===============>-------------------------------------------------------------------------------------------------------------------] 12% est: 2s 
 plot: [1,7] [==================>----------------------------------------------------------------------------------------------------------------] 14% est: 2s 
 plot: [2,1] [====================>--------------------------------------------------------------------------------------------------------------] 16% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [2,2] [=======================>-----------------------------------------------------------------------------------------------------------] 18% est: 2s 
 plot: [2,3] [==========================>--------------------------------------------------------------------------------------------------------] 20% est: 2s 
 plot: [2,4] [============================>------------------------------------------------------------------------------------------------------] 22% est: 2s 
 plot: [2,5] [===============================>---------------------------------------------------------------------------------------------------] 24% est: 2s 
 plot: [2,6] [==================================>------------------------------------------------------------------------------------------------] 27% est: 2s 
 plot: [2,7] [====================================>----------------------------------------------------------------------------------------------] 29% est: 2s 
 plot: [3,1] [=======================================>-------------------------------------------------------------------------------------------] 31% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,2] [==========================================>----------------------------------------------------------------------------------------] 33% est: 2s `geom_smooth()` using formula 'y ~ x'

 plot: [3,3] [============================================>--------------------------------------------------------------------------------------] 35% est: 2s 
 plot: [3,4] [===============================================>-----------------------------------------------------------------------------------] 37% est: 2s 
 plot: [3,5] [==================================================>--------------------------------------------------------------------------------] 39% est: 2s 
 plot: [3,6] [====================================================>------------------------------------------------------------------------------] 41% est: 2s 
 plot: [3,7] [=======================================================>---------------------------------------------------------------------------] 43% est: 2s 
 plot: [4,1] [==========================================================>------------------------------------------------------------------------] 45% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,2] [============================================================>----------------------------------------------------------------------] 47% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,3] [===============================================================>-------------------------------------------------------------------] 49% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [4,4] [==================================================================>----------------------------------------------------------------] 51% est: 1s 
 plot: [4,5] [=====================================================================>-------------------------------------------------------------] 53% est: 1s 
 plot: [4,6] [=======================================================================>-----------------------------------------------------------] 55% est: 1s 
 plot: [4,7] [==========================================================================>--------------------------------------------------------] 57% est: 1s 
 plot: [5,1] [=============================================================================>-----------------------------------------------------] 59% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,2] [===============================================================================>---------------------------------------------------] 61% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,3] [==================================================================================>------------------------------------------------] 63% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,4] [=====================================================================================>---------------------------------------------] 65% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [5,5] [=======================================================================================>-------------------------------------------] 67% est: 1s 
 plot: [5,6] [==========================================================================================>----------------------------------------] 69% est: 1s 
 plot: [5,7] [=============================================================================================>-------------------------------------] 71% est: 1s 
 plot: [6,1] [===============================================================================================>-----------------------------------] 73% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,2] [==================================================================================================>--------------------------------] 76% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,3] [=====================================================================================================>-----------------------------] 78% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,4] [=======================================================================================================>---------------------------] 80% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,5] [==========================================================================================================>------------------------] 82% est: 1s `geom_smooth()` using formula 'y ~ x'

 plot: [6,6] [=============================================================================================================>---------------------] 84% est: 0s 
 plot: [6,7] [===============================================================================================================>-------------------] 86% est: 0s 
 plot: [7,1] [==================================================================================================================>----------------] 88% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,2] [=====================================================================================================================>-------------] 90% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,3] [=======================================================================================================================>-----------] 92% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,4] [==========================================================================================================================>--------] 94% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,5] [=============================================================================================================================>-----] 96% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,6] [===============================================================================================================================>---] 98% est: 0s `geom_smooth()` using formula 'y ~ x'

 plot: [7,7] [===================================================================================================================================]100% est: 0s 
                                                                                                                                                               

#supplemental figure 4

ggsave(plot = stable.ggp.plt.1,  path = "~/plots/paper1/figures/fig_2/supplemental_figs/", filename = "figs4c.pdf", width = 8, height = 5)

 plot: [1,1] [>---------------------------------------------------------------------------------------]  1% est: 0s 
 plot: [1,2] [>---------------------------------------------------------------------------------------]  1% est: 7s 
 plot: [1,3] [=>--------------------------------------------------------------------------------------]  2% est:10s 
 plot: [1,4] [=>--------------------------------------------------------------------------------------]  3% est:11s 
 plot: [1,5] [==>-------------------------------------------------------------------------------------]  3% est:11s 
 plot: [1,6] [===>------------------------------------------------------------------------------------]  4% est:11s 
 plot: [1,7] [===>------------------------------------------------------------------------------------]  5% est:11s 
 plot: [1,8] [====>-----------------------------------------------------------------------------------]  6% est:12s 
 plot: [1,9] [=====>----------------------------------------------------------------------------------]  6% est:12s 
 plot: [1,10] [=====>---------------------------------------------------------------------------------]  7% est:13s 
 plot: [1,11] [======>--------------------------------------------------------------------------------]  8% est:12s 
 plot: [1,12] [======>--------------------------------------------------------------------------------]  8% est:13s 
 plot: [2,1] [=======>--------------------------------------------------------------------------------]  9% est:12s 
 plot: [2,2] [========>-------------------------------------------------------------------------------] 10% est:11s 
 plot: [2,3] [========>-------------------------------------------------------------------------------] 10% est:11s 
 plot: [2,4] [=========>------------------------------------------------------------------------------] 11% est:11s 
 plot: [2,5] [=========>------------------------------------------------------------------------------] 12% est:11s 
 plot: [2,6] [==========>-----------------------------------------------------------------------------] 12% est:11s 
 plot: [2,7] [===========>----------------------------------------------------------------------------] 13% est:11s 
 plot: [2,8] [===========>----------------------------------------------------------------------------] 14% est:11s 
 plot: [2,9] [============>---------------------------------------------------------------------------] 15% est:11s 
 plot: [2,10] [============>--------------------------------------------------------------------------] 15% est:11s 
 plot: [2,11] [=============>-------------------------------------------------------------------------] 16% est:11s 
 plot: [2,12] [=============>-------------------------------------------------------------------------] 17% est:11s 
 plot: [3,1] [==============>-------------------------------------------------------------------------] 17% est:11s 
 plot: [3,2] [===============>------------------------------------------------------------------------] 18% est:11s 
 plot: [3,3] [===============>------------------------------------------------------------------------] 19% est:10s 
 plot: [3,4] [================>-----------------------------------------------------------------------] 19% est:10s 
 plot: [3,5] [=================>----------------------------------------------------------------------] 20% est:10s 
 plot: [3,6] [=================>----------------------------------------------------------------------] 21% est:10s 
 plot: [3,7] [==================>---------------------------------------------------------------------] 22% est:10s 
 plot: [3,8] [===================>--------------------------------------------------------------------] 22% est:10s 
 plot: [3,9] [===================>--------------------------------------------------------------------] 23% est:10s 
 plot: [3,10] [====================>------------------------------------------------------------------] 24% est:10s 
 plot: [3,11] [====================>------------------------------------------------------------------] 24% est:10s 
 plot: [3,12] [=====================>-----------------------------------------------------------------] 25% est:10s 
 plot: [4,1] [======================>-----------------------------------------------------------------] 26% est:10s 
 plot: [4,2] [======================>-----------------------------------------------------------------] 26% est:10s 
 plot: [4,3] [=======================>----------------------------------------------------------------] 27% est: 9s 
 plot: [4,4] [=======================>----------------------------------------------------------------] 28% est: 9s 
 plot: [4,5] [========================>---------------------------------------------------------------] 28% est: 9s 
 plot: [4,6] [=========================>--------------------------------------------------------------] 29% est: 9s 
 plot: [4,7] [=========================>--------------------------------------------------------------] 30% est: 9s 
 plot: [4,8] [==========================>-------------------------------------------------------------] 31% est: 9s 
 plot: [4,9] [===========================>------------------------------------------------------------] 31% est: 9s 
 plot: [4,10] [===========================>-----------------------------------------------------------] 32% est: 9s 
 plot: [4,11] [===========================>-----------------------------------------------------------] 33% est: 9s 
 plot: [4,12] [============================>----------------------------------------------------------] 33% est: 9s 
 plot: [5,1] [=============================>----------------------------------------------------------] 34% est: 8s 
 plot: [5,2] [==============================>---------------------------------------------------------] 35% est: 8s 
 plot: [5,3] [==============================>---------------------------------------------------------] 35% est: 8s 
 plot: [5,4] [===============================>--------------------------------------------------------] 36% est: 8s 
 plot: [5,5] [===============================>--------------------------------------------------------] 37% est: 8s 
 plot: [5,6] [================================>-------------------------------------------------------] 38% est: 8s 
 plot: [5,7] [=================================>------------------------------------------------------] 38% est: 8s 
 plot: [5,8] [=================================>------------------------------------------------------] 39% est: 8s 
 plot: [5,9] [==================================>-----------------------------------------------------] 40% est: 8s 
 plot: [5,10] [==================================>----------------------------------------------------] 40% est: 8s 
 plot: [5,11] [===================================>---------------------------------------------------] 41% est: 8s 
 plot: [5,12] [===================================>---------------------------------------------------] 42% est: 7s 
 plot: [6,1] [====================================>---------------------------------------------------] 42% est: 7s 
 plot: [6,2] [=====================================>--------------------------------------------------] 43% est: 7s 
 plot: [6,3] [=====================================>--------------------------------------------------] 44% est: 7s 
 plot: [6,4] [======================================>-------------------------------------------------] 44% est: 7s 
 plot: [6,5] [=======================================>------------------------------------------------] 45% est: 7s 
 plot: [6,6] [=======================================>------------------------------------------------] 46% est: 7s 
 plot: [6,7] [========================================>-----------------------------------------------] 47% est: 7s 
 plot: [6,8] [=========================================>----------------------------------------------] 47% est: 7s 
 plot: [6,9] [=========================================>----------------------------------------------] 48% est: 7s 
 plot: [6,10] [=========================================>---------------------------------------------] 49% est: 7s 
 plot: [6,11] [==========================================>--------------------------------------------] 49% est: 6s 
 plot: [6,12] [===========================================>-------------------------------------------] 50% est: 6s 
 plot: [7,1] [============================================>-------------------------------------------] 51% est: 6s 
 plot: [7,2] [============================================>-------------------------------------------] 51% est: 6s 
 plot: [7,3] [=============================================>------------------------------------------] 52% est: 6s 
 plot: [7,4] [=============================================>------------------------------------------] 53% est: 6s 
 plot: [7,5] [==============================================>-----------------------------------------] 53% est: 6s 
 plot: [7,6] [===============================================>----------------------------------------] 54% est: 6s 
 plot: [7,7] [===============================================>----------------------------------------] 55% est: 6s 
 plot: [7,8] [================================================>---------------------------------------] 56% est: 6s 
 plot: [7,9] [=================================================>--------------------------------------] 56% est: 6s 
 plot: [7,10] [=================================================>-------------------------------------] 57% est: 5s 
 plot: [7,11] [=================================================>-------------------------------------] 58% est: 5s 
 plot: [7,12] [==================================================>------------------------------------] 58% est: 5s 
 plot: [8,1] [===================================================>------------------------------------] 59% est: 5s 
 plot: [8,2] [====================================================>-----------------------------------] 60% est: 5s 
 plot: [8,3] [====================================================>-----------------------------------] 60% est: 5s 
 plot: [8,4] [=====================================================>----------------------------------] 61% est: 5s 
 plot: [8,5] [=====================================================>----------------------------------] 62% est: 5s 
 plot: [8,6] [======================================================>---------------------------------] 62% est: 5s 
 plot: [8,7] [=======================================================>--------------------------------] 63% est: 5s 
 plot: [8,8] [=======================================================>--------------------------------] 64% est: 5s 
 plot: [8,9] [========================================================>-------------------------------] 65% est: 4s 
 plot: [8,10] [========================================================>------------------------------] 65% est: 4s 
 plot: [8,11] [========================================================>------------------------------] 66% est: 4s 
 plot: [8,12] [=========================================================>-----------------------------] 67% est: 4s 
 plot: [9,1] [==========================================================>-----------------------------] 67% est: 4s 
 plot: [9,2] [===========================================================>----------------------------] 68% est: 4s 
 plot: [9,3] [===========================================================>----------------------------] 69% est: 4s 
 plot: [9,4] [============================================================>---------------------------] 69% est: 4s 
 plot: [9,5] [=============================================================>--------------------------] 70% est: 4s 
 plot: [9,6] [=============================================================>--------------------------] 71% est: 4s 
 plot: [9,7] [==============================================================>-------------------------] 72% est: 4s 
 plot: [9,8] [===============================================================>------------------------] 72% est: 4s 
 plot: [9,9] [===============================================================>------------------------] 73% est: 3s 
 plot: [9,10] [===============================================================>-----------------------] 74% est: 3s 
 plot: [9,11] [================================================================>----------------------] 74% est: 3s 
 plot: [9,12] [================================================================>----------------------] 75% est: 3s 
 plot: [10,1] [=================================================================>---------------------] 76% est: 3s 
 plot: [10,2] [=================================================================>---------------------] 76% est: 3s 
 plot: [10,3] [==================================================================>--------------------] 77% est: 3s 
 plot: [10,4] [===================================================================>-------------------] 78% est: 3s 
 plot: [10,5] [===================================================================>-------------------] 78% est: 3s 
 plot: [10,6] [====================================================================>------------------] 79% est: 3s 
 plot: [10,7] [====================================================================>------------------] 80% est: 3s 
 plot: [10,8] [=====================================================================>-----------------] 81% est: 2s 
 plot: [10,9] [======================================================================>----------------] 81% est: 2s 
 plot: [10,10] [=====================================================================>----------------] 82% est: 2s 
 plot: [10,11] [======================================================================>---------------] 83% est: 2s 
 plot: [10,12] [=======================================================================>--------------] 83% est: 2s 
 plot: [11,1] [========================================================================>--------------] 84% est: 2s 
 plot: [11,2] [=========================================================================>-------------] 85% est: 2s 
 plot: [11,3] [=========================================================================>-------------] 85% est: 2s 
 plot: [11,4] [==========================================================================>------------] 86% est: 2s 
 plot: [11,5] [===========================================================================>-----------] 87% est: 2s 
 plot: [11,6] [===========================================================================>-----------] 88% est: 2s 
 plot: [11,7] [============================================================================>----------] 88% est: 2s 
 plot: [11,8] [============================================================================>----------] 89% est: 1s 
 plot: [11,9] [=============================================================================>---------] 90% est: 1s 
 plot: [11,10] [=============================================================================>--------] 90% est: 1s 
 plot: [11,11] [=============================================================================>--------] 91% est: 1s 
 plot: [11,12] [==============================================================================>-------] 92% est: 1s 
 plot: [12,1] [===============================================================================>-------] 92% est: 1s 
 plot: [12,2] [================================================================================>------] 93% est: 1s 
 plot: [12,3] [=================================================================================>-----] 94% est: 1s 
 plot: [12,4] [=================================================================================>-----] 94% est: 1s 
 plot: [12,5] [==================================================================================>----] 95% est: 1s 
 plot: [12,6] [==================================================================================>----] 96% est: 1s 
 plot: [12,7] [===================================================================================>---] 97% est: 0s 
 plot: [12,8] [====================================================================================>--] 97% est: 0s 
 plot: [12,9] [====================================================================================>--] 98% est: 0s 
 plot: [12,10] [====================================================================================>-] 99% est: 0s 
 plot: [12,11] [====================================================================================>-] 99% est: 0s 
 plot: [12,12] [======================================================================================]100% est: 0s 
                                                                                                                    

ggsave(plot = stable.ggp.plt.1,  path = "~/plots/paper1/figures/fig_2/supplemental_figs/", filename = "figs4c.png", width = 8, height = 5)

 plot: [1,1] [>---------------------------------------------------------------------------------------]  1% est: 0s 
 plot: [1,2] [>---------------------------------------------------------------------------------------]  1% est: 7s 
 plot: [1,3] [=>--------------------------------------------------------------------------------------]  2% est: 9s 
 plot: [1,4] [=>--------------------------------------------------------------------------------------]  3% est:11s 
 plot: [1,5] [==>-------------------------------------------------------------------------------------]  3% est:12s 
 plot: [1,6] [===>------------------------------------------------------------------------------------]  4% est:12s 
 plot: [1,7] [===>------------------------------------------------------------------------------------]  5% est:12s 
 plot: [1,8] [====>-----------------------------------------------------------------------------------]  6% est:12s 
 plot: [1,9] [=====>----------------------------------------------------------------------------------]  6% est:12s 
 plot: [1,10] [=====>---------------------------------------------------------------------------------]  7% est:12s 
 plot: [1,11] [======>--------------------------------------------------------------------------------]  8% est:12s 
 plot: [1,12] [======>--------------------------------------------------------------------------------]  8% est:12s 
 plot: [2,1] [=======>--------------------------------------------------------------------------------]  9% est:12s 
 plot: [2,2] [========>-------------------------------------------------------------------------------] 10% est:11s 
 plot: [2,3] [========>-------------------------------------------------------------------------------] 10% est:11s 
 plot: [2,4] [=========>------------------------------------------------------------------------------] 11% est:11s 
 plot: [2,5] [=========>------------------------------------------------------------------------------] 12% est:11s 
 plot: [2,6] [==========>-----------------------------------------------------------------------------] 12% est:11s 
 plot: [2,7] [===========>----------------------------------------------------------------------------] 13% est:11s 
 plot: [2,8] [===========>----------------------------------------------------------------------------] 14% est:11s 
 plot: [2,9] [============>---------------------------------------------------------------------------] 15% est:11s 
 plot: [2,10] [============>--------------------------------------------------------------------------] 15% est:11s 
 plot: [2,11] [=============>-------------------------------------------------------------------------] 16% est:11s 
 plot: [2,12] [=============>-------------------------------------------------------------------------] 17% est:11s 
 plot: [3,1] [==============>-------------------------------------------------------------------------] 17% est:11s 
 plot: [3,2] [===============>------------------------------------------------------------------------] 18% est:11s 
 plot: [3,3] [===============>------------------------------------------------------------------------] 19% est:11s 
 plot: [3,4] [================>-----------------------------------------------------------------------] 19% est:11s 
 plot: [3,5] [=================>----------------------------------------------------------------------] 20% est:10s 
 plot: [3,6] [=================>----------------------------------------------------------------------] 21% est:10s 
 plot: [3,7] [==================>---------------------------------------------------------------------] 22% est:10s 
 plot: [3,8] [===================>--------------------------------------------------------------------] 22% est:10s 
 plot: [3,9] [===================>--------------------------------------------------------------------] 23% est:10s 
 plot: [3,10] [====================>------------------------------------------------------------------] 24% est:10s 
 plot: [3,11] [====================>------------------------------------------------------------------] 24% est:10s 
 plot: [3,12] [=====================>-----------------------------------------------------------------] 25% est:10s 
 plot: [4,1] [======================>-----------------------------------------------------------------] 26% est:10s 
 plot: [4,2] [======================>-----------------------------------------------------------------] 26% est:10s 
 plot: [4,3] [=======================>----------------------------------------------------------------] 27% est:10s 
 plot: [4,4] [=======================>----------------------------------------------------------------] 28% est: 9s 
 plot: [4,5] [========================>---------------------------------------------------------------] 28% est: 9s 
 plot: [4,6] [=========================>--------------------------------------------------------------] 29% est: 9s 
 plot: [4,7] [=========================>--------------------------------------------------------------] 30% est: 9s 
 plot: [4,8] [==========================>-------------------------------------------------------------] 31% est: 9s 
 plot: [4,9] [===========================>------------------------------------------------------------] 31% est: 9s 
 plot: [4,10] [===========================>-----------------------------------------------------------] 32% est: 9s 
 plot: [4,11] [===========================>-----------------------------------------------------------] 33% est: 9s 
 plot: [4,12] [============================>----------------------------------------------------------] 33% est: 9s 
 plot: [5,1] [=============================>----------------------------------------------------------] 34% est: 9s 
 plot: [5,2] [==============================>---------------------------------------------------------] 35% est: 9s 
 plot: [5,3] [==============================>---------------------------------------------------------] 35% est: 8s 
 plot: [5,4] [===============================>--------------------------------------------------------] 36% est: 8s 
 plot: [5,5] [===============================>--------------------------------------------------------] 37% est: 8s 
 plot: [5,6] [================================>-------------------------------------------------------] 38% est: 8s 
 plot: [5,7] [=================================>------------------------------------------------------] 38% est: 8s 
 plot: [5,8] [=================================>------------------------------------------------------] 39% est: 8s 
 plot: [5,9] [==================================>-----------------------------------------------------] 40% est: 8s 
 plot: [5,10] [==================================>----------------------------------------------------] 40% est: 8s 
 plot: [5,11] [===================================>---------------------------------------------------] 41% est: 8s 
 plot: [5,12] [===================================>---------------------------------------------------] 42% est: 8s 
 plot: [6,1] [====================================>---------------------------------------------------] 42% est: 8s 
 plot: [6,2] [=====================================>--------------------------------------------------] 43% est: 8s 
 plot: [6,3] [=====================================>--------------------------------------------------] 44% est: 7s 
 plot: [6,4] [======================================>-------------------------------------------------] 44% est: 7s 
 plot: [6,5] [=======================================>------------------------------------------------] 45% est: 7s 
 plot: [6,6] [=======================================>------------------------------------------------] 46% est: 7s 
 plot: [6,7] [========================================>-----------------------------------------------] 47% est: 7s 
 plot: [6,8] [=========================================>----------------------------------------------] 47% est: 7s 
 plot: [6,9] [=========================================>----------------------------------------------] 48% est: 7s 
 plot: [6,10] [=========================================>---------------------------------------------] 49% est: 7s 
 plot: [6,11] [==========================================>--------------------------------------------] 49% est: 7s 
 plot: [6,12] [===========================================>-------------------------------------------] 50% est: 7s 
 plot: [7,1] [============================================>-------------------------------------------] 51% est: 7s 
 plot: [7,2] [============================================>-------------------------------------------] 51% est: 6s 
 plot: [7,3] [=============================================>------------------------------------------] 52% est: 6s 
 plot: [7,4] [=============================================>------------------------------------------] 53% est: 6s 
 plot: [7,5] [==============================================>-----------------------------------------] 53% est: 6s 
 plot: [7,6] [===============================================>----------------------------------------] 54% est: 6s 
 plot: [7,7] [===============================================>----------------------------------------] 55% est: 6s 
 plot: [7,8] [================================================>---------------------------------------] 56% est: 6s 
 plot: [7,9] [=================================================>--------------------------------------] 56% est: 6s 
 plot: [7,10] [=================================================>-------------------------------------] 57% est: 6s 
 plot: [7,11] [=================================================>-------------------------------------] 58% est: 6s 
 plot: [7,12] [==================================================>------------------------------------] 58% est: 6s 
 plot: [8,1] [===================================================>------------------------------------] 59% est: 5s 
 plot: [8,2] [====================================================>-----------------------------------] 60% est: 5s 
 plot: [8,3] [====================================================>-----------------------------------] 60% est: 5s 
 plot: [8,4] [=====================================================>----------------------------------] 61% est: 5s 
 plot: [8,5] [=====================================================>----------------------------------] 62% est: 5s 
 plot: [8,6] [======================================================>---------------------------------] 62% est: 5s 
 plot: [8,7] [=======================================================>--------------------------------] 63% est: 5s 
 plot: [8,8] [=======================================================>--------------------------------] 64% est: 5s 
 plot: [8,9] [========================================================>-------------------------------] 65% est: 5s 
 plot: [8,10] [========================================================>------------------------------] 65% est: 5s 
 plot: [8,11] [========================================================>------------------------------] 66% est: 5s 
 plot: [8,12] [=========================================================>-----------------------------] 67% est: 4s 
 plot: [9,1] [==========================================================>-----------------------------] 67% est: 4s 
 plot: [9,2] [===========================================================>----------------------------] 68% est: 4s 
 plot: [9,3] [===========================================================>----------------------------] 69% est: 4s 
 plot: [9,4] [============================================================>---------------------------] 69% est: 4s 
 plot: [9,5] [=============================================================>--------------------------] 70% est: 4s 
 plot: [9,6] [=============================================================>--------------------------] 71% est: 4s 
 plot: [9,7] [==============================================================>-------------------------] 72% est: 4s 
 plot: [9,8] [===============================================================>------------------------] 72% est: 4s 
 plot: [9,9] [===============================================================>------------------------] 73% est: 4s 
 plot: [9,10] [===============================================================>-----------------------] 74% est: 3s 
 plot: [9,11] [================================================================>----------------------] 74% est: 3s 
 plot: [9,12] [================================================================>----------------------] 75% est: 3s 
 plot: [10,1] [=================================================================>---------------------] 76% est: 3s 
 plot: [10,2] [=================================================================>---------------------] 76% est: 3s 
 plot: [10,3] [==================================================================>--------------------] 77% est: 3s 
 plot: [10,4] [===================================================================>-------------------] 78% est: 3s 
 plot: [10,5] [===================================================================>-------------------] 78% est: 3s 
 plot: [10,6] [====================================================================>------------------] 79% est: 3s 
 plot: [10,7] [====================================================================>------------------] 80% est: 3s 
 plot: [10,8] [=====================================================================>-----------------] 81% est: 3s 
 plot: [10,9] [======================================================================>----------------] 81% est: 2s 
 plot: [10,10] [=====================================================================>----------------] 82% est: 2s 
 plot: [10,11] [======================================================================>---------------] 83% est: 2s 
 plot: [10,12] [=======================================================================>--------------] 83% est: 2s 
 plot: [11,1] [========================================================================>--------------] 84% est: 2s 
 plot: [11,2] [=========================================================================>-------------] 85% est: 2s 
 plot: [11,3] [=========================================================================>-------------] 85% est: 2s 
 plot: [11,4] [==========================================================================>------------] 86% est: 2s 
 plot: [11,5] [===========================================================================>-----------] 87% est: 2s 
 plot: [11,6] [===========================================================================>-----------] 88% est: 2s 
 plot: [11,7] [============================================================================>----------] 88% est: 2s 
 plot: [11,8] [============================================================================>----------] 89% est: 1s 
 plot: [11,9] [=============================================================================>---------] 90% est: 1s 
 plot: [11,10] [=============================================================================>--------] 90% est: 1s 
 plot: [11,11] [=============================================================================>--------] 91% est: 1s 
 plot: [11,12] [==============================================================================>-------] 92% est: 1s 
 plot: [12,1] [===============================================================================>-------] 92% est: 1s 
 plot: [12,2] [================================================================================>------] 93% est: 1s 
 plot: [12,3] [=================================================================================>-----] 94% est: 1s 
 plot: [12,4] [=================================================================================>-----] 94% est: 1s 
 plot: [12,5] [==================================================================================>----] 95% est: 1s 
 plot: [12,6] [==================================================================================>----] 96% est: 1s 
 plot: [12,7] [===================================================================================>---] 97% est: 0s 
 plot: [12,8] [====================================================================================>--] 97% est: 0s 
 plot: [12,9] [====================================================================================>--] 98% est: 0s 
 plot: [12,10] [====================================================================================>-] 99% est: 0s 
 plot: [12,11] [====================================================================================>-] 99% est: 0s 
 plot: [12,12] [======================================================================================]100% est: 0s